home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 11 / FM Towns Free Software Collection 11.iso / t_os / demo / takara / demo.bas < prev    next >
Encoding:
BASIC Source File  |  1995-08-18  |  31.0 KB  |  877 lines
  1. 1000 SCREEN@ 0:CLS:G=0
  2. 1010 '
  3. 1015 LOCATE 32,10:COLOR 7:PRINT "NOW LOADING････････";:COLOR 6
  4. 1020 CLEAR ,,,,,300000
  5. 1030 DEF FONT "システム   12ﾄﾞｯﾄ"
  6. 1040 '
  7. 1050 REM ****WAKU EGAKU****
  8. 1060  FOR J=0 TO 16 STEP 2
  9. 1070    LINE(J,20+J)-(630-J,476-J),PSET,5,B
  10. 1080  NEXT
  11. 1090  LINE(40,420)-(595,423),PSET,5,BF
  12. 1100 '
  13. 1110 REM ****GAMEN EGAKU****
  14. 1120  LINE(26,108)-(587,336),PSET,0,BF
  15. 1130  LOCATE 61,21:COLOR 7:PRINT "By T.K.MOSAKU";:COLOR 6
  16. 1135  LOCATE 32,10:COLOR 7:PRINT "                      ";:COLOR 6
  17. 1140  LOAD@"GAMEN4.TIF",(26,108)
  18. 1150 '
  19. 1151 REM ****SYOKI SETTEI****
  20. 1152  R=70:PI=3.14159!:R2=25
  21. 1153  DEF FNA(X) =139+R*COS(X*PI/180) :DEF FNB(Y) =219-R*SIN(Y*PI/180)
  22. 1154  DEF FNAA(X)=139+R2*COS(X*PI/180):DEF FNBB(Y)=219-R2*SIN(Y*PI/180)
  23. 1155  DEF FND(X) =219-R*COS(X*PI/180)
  24. 1156  DEF FNC(X) =COS(X*PI/180)       :DEF FNF(Y) =SIN(Y*PI/180)
  25. 1157  X01=FNA(0):Y01=FNB(0):XLL=291:YLL=218:XL0=291:YL0=149
  26. 1158  X1 =FNA(0):Y1 =FNB(0):X2=FNA(0):Y2=FNB(0):XL=290
  27. 1159 ' 
  28. 1161 IF G=0 THEN GOTO 1165 ELSE LOAD@"GAMEN4.TIF",(26,108)
  29. 1165 GOTO *BUNKI
  30. 1400 '
  31. 1410 *MAIN
  32. 1412  LOCATE 61,21:COLOR 7:PRINT "By T.K.MOSAKU";:COLOR 6
  33. 1415  MOUSE 5:LINE(142,396)-(591,415),PSET,0,BF
  34. 1420  LOCATE 7,23:PRINT SPACE$(70);
  35. 1430  IF MO=1 THEN GOTO 1460
  36. 1440  LOCATE 7, 23:COLOR 6:PRINT "角度(θ)に対する SIN θ,と COS θの値を調べてみましょう｡";
  37. 1450  WAIT 500:LOCATE 7,23:PRINT SPACE$(70);:WAIT 50
  38. 1460  LOCATE 7, 23:PRINT "調べたい角度をキーボードから入力してリターンキーを押して下さい｡";
  39. 1470  WAIT 300
  40. 1480 '
  41. 1490 REM ****ZAHYOU KETTEI****
  42. 1500  'FOR TH=0 TO 360 STEP 10
  43. 1510   LOCATE 5,3:INPUT"何度";TH
  44. 1520  REM ****SUUTI KAKUNIN****
  45. 1530   IF TH>360 THEN GOTO 1540 ELSE GOTO 1570
  46. 1540   LOCATE 5,3:PRINT"360°より小さい数値を入れて下さい";
  47. 1550   WAIT 100:LOCATE 5,3:PRINT SPACE$(40);:GOTO 1510
  48. 1560  REM ****SUUTI KETTEI
  49. 1570   X2 =FNA(TH)    :Y2 =FNB(TH)
  50. 1580   XL1=291+.75!*TH:XL3=FNAA(TH)
  51. 1590   YL1=FND(TH)    :YL2=FNB(TH):YL3=FNBB(TH)
  52. 1600   XZ1=FNC(TH)    :YZ1=FNF(TH)
  53. 1610 '
  54. 1620  REM ****COMENT HYOUZI
  55. 1630   LOCATE 5,3:PRINT SPACE$(30);
  56. 1640   LOCATE 7,23:PRINT SPACE$(70);:WAIT 50
  57. 1650   LOCATE 7,23:PRINT TH;"°の円周上の座標を求めます｡"; 
  58. 1660  IF MO=1 THEN GOTO 1710
  59. 1670   WAIT 300:LOCATE 7,23:PRINT SPACE$(70):WAIT 50
  60. 1680   LOCATE 7,23:COLOR 6:PRINT "まず";TH;"°を計ります｡ 赤線で示します｡                 "; 
  61. 1690   WAIT 300
  62. 1700 '
  63. 1710 REM ****KAKUDO EGAKU ****
  64. 1720   FOR T=1 TO TH
  65. 1730      IF T=1 OR T=2 THEN THH=T+2 ELSE THH=T
  66. 1740      CIRCLE (139,219),25,2,1,(361-THH)/360,1,N
  67. 1750      LOCATE 27,18:COLOR 7:PRINT"角    度＝";T;"°";
  68. 1760   NEXT
  69. 1770   LOCATE 27,18:COLOR 7:PRINT"角    度＝";TH;"°";
  70. 1780 IF MO=1 THEN GOTO 1840
  71. 1790   WAIT 200:LOCATE 7,23:COLOR 6:PRINT SPACE$(70);:WAIT 50
  72. 1800   LOCATE 7,23:COLOR 6:PRINT "赤線で示した所までが";TH;"°です｡                        "; 
  73. 1810   WAIT 300:LOCATE 7,23:PRINT SPACE$(70);:WAIT 50
  74. 1820   LOCATE 7,23:PRINT "黄色線で中心角";TH;"°の円周上の点を求めます｡           "; 
  75. 1830   WAIT 300
  76. 1840 REM ****SEN EGAKU****
  77. 1850   X2X=X2-139:Y2Y=219-Y2:XJ=0:YJ=0:X0=0:J0=0:Y0=0
  78. 1860   IF X2>189 THEN GOTO 1980
  79. 1870   IF X2<88  THEN GOTO 2060
  80. 1880   IF Y2Y<0  THEN GOTO 2140
  81. 1890 '
  82. 1900   FOR J=0 TO Y2Y
  83. 1910     LINE (139,219)-(139+X0,        219-J0),PSET,0
  84. 1920     LINE (139,219)-(139+(X2X*J/Y2Y),219-J),PSET,6
  85. 1930     FOR W=0 TO 250:NEXT
  86. 1940     J0=J:X0=X2X*J/Y2Y
  87. 1950   NEXT
  88. 1960   GOTO 2220
  89. 1970 '
  90. 1980   FOR J=0 TO X2X
  91. 1990     LINE (139,219)-(139+J0,        219-Y0),PSET,0
  92. 2000     LINE (139,219)-(139+J,219-(Y2Y*J/X2X)),PSET,6
  93. 2010     FOR W=0 TO 250:NEXT
  94. 2020     J0=J:Y0=Y2Y*J/X2X
  95. 2030   NEXT
  96. 2040   GOTO 2220
  97. 2050 '
  98. 2060   FOR J=0 TO -X2X
  99. 2070     LINE (139,219)-(139-J0,        219+Y0),PSET,0
  100. 2080     LINE (139,219)-(139-J,219+(Y2Y*J/X2X)),PSET,6
  101. 2090     FOR W=0 TO 250:NEXT
  102. 2100     J0=J:Y0=Y2Y*J/X2X
  103. 2110   NEXT
  104. 2120   GOTO 2220
  105. 2130 '
  106. 2140   FOR J=0 TO -Y2Y
  107. 2150     LINE (139,219)-(139-X0,        219+J0),PSET,0
  108. 2160     LINE (139,219)-(139-(X2X*J/Y2Y),219+J),PSET,6
  109. 2170     FOR W=0 TO 250:NEXT
  110. 2180     J0=J:X0=X2X*J/Y2Y
  111. 2190   NEXT
  112. 2200   GOTO 2220
  113. 2210 '
  114. 2220 WAIT 50
  115. 2230 '
  116. 2240 REM ****POINT EGAKU****
  117. 2250   CIRCLE (X2,Y2),3,6,,,1,F
  118. 2260   WAIT 50
  119. 2270 '
  120. 2280 IF MO=1 THEN GOTO 2420
  121. 2290   LOCATE 7,23:PRINT SPACE$(70);:WAIT 50
  122. 2300   LOCATE 7,23:PRINT "黄色い点が, 中心角";TH;"°の円周上の点です｡           "; 
  123. 2310   WAIT 300:LOCATE 7,23:PRINT SPACE$(70);:WAIT 50
  124. 2320   LOCATE 7,23:PRINT "この点のＸ座標値, Ｙ座標値はそれぞれいくらになるでしょう｡"; 
  125. 2330   WAIT 300:LOCATE 7,23:PRINT SPACE$(70);:WAIT 50
  126. 2340   LOCATE 7,23:PRINT "右にある SIN,COS グラフからその値を求めてみます｡          "; 
  127. 2350   WAIT 300:LOCATE 7,23:PRINT SPACE$(70);:WAIT 50
  128. 2360   LOCATE 7,23:PRINT "空色のグラフが SIN, 桃色のグラフが COS グラフです｡        "; 
  129. 2370   WAIT 500:LOCATE 7,23:PRINT SPACE$(70);:WAIT 50
  130. 2380   LOCATE 7,23:PRINT "Y 座標は SINグラフで求めます｡";TH;"°の点を SINグラフの上に求めます｡"; 
  131. 2390   WAIT 400
  132. 2400 '
  133. 2410 '
  134. 2420 REM ****YOKO TUNAGI SEN EGAKU****
  135. 2430   XT=0
  136. 2440   FOR T=X2 TO XL1
  137. 2450     LINE (X2,Y2)-(X2+XT,Y2),PSET,7,,&H6666
  138. 2460     XT=XT+1
  139. 2470     IF MO=0 THEN WAIT 2 ELSE GOTO 2480
  140. 2480   NEXT
  141. 2490 REM ****POINT EGAKU****
  142. 2500   CIRCLE (XL1,YL2),3,5,,,1,F
  143. 2510   WAIT 100
  144. 2520   IF TH=90            THEN YZ1=1
  145. 2530   IF TH=30  OR TH=150 THEN YZ1=.5!
  146. 2540   IF TH=210 OR TH=330 THEN YZ1=-.5!
  147. 2550   IF TH=45  OR TH=135 THEN YZ1=.707107!
  148. 2560   IF TH=225 OR TH=315 THEN YZ1=-.707107!
  149. 2570   IF TH=270           THEN YZ1=-1
  150. 2580   IF TH=180 OR TH=360 THEN YZ1=0
  151. 2590   LOCATE 27,20:COLOR 7:PRINT"Ｙ座標値＝";YZ1;
  152. 2600   WAIT 150
  153. 2610 '
  154. 2620 IF MO=1 THEN GOTO 2690
  155. 2630   LOCATE 7,23:PRINT SPACE$(70);:WAIT 50
  156. 2640   LOCATE 7,23:COLOR 6:PRINT "空色点が, SIN グラフ上の";TH;"°に当たる点です｡  Y=";YZ1;"です。  "; 
  157. 2650   WAIT 400:LOCATE 7,23:PRINT SPACE$(70);:WAIT 50
  158. 2660   LOCATE 7,23:PRINT "X 座標は COSグラフで求めます｡";TH;"°の点を COSグラフの上に求めます｡"; 
  159. 2670   WAIT 400
  160. 2680 '
  161. 2690 REM ****TATE TUNAGI SEN EGAKU****
  162. 2700   LINE (XL1,132)-(XL1,309),PSET,1,,&H6666
  163. 2710 REM ****KAKUDO HYOUZI****
  164. 2720   TH$=STR$(TH)+"°"
  165. 2730   IF TH<10 THEN XLS=XL1-14:HB=20:GOTO 2760
  166. 2740   IF TH>99 THEN XLS=XL1-23:HB=40:GOTO 2760
  167. 2750   XLS=XL1-20:HB=30
  168. 2760   SYMBOL (XLS+5,315),TH$,.75!,.75!,2,0,PSET,0,2:GOTO 2770
  169. 2770   WAIT 100
  170. 2780 REM ****POINT EGAKU****
  171. 2790   CIRCLE (XL1,YL2),3,5,,,1,F
  172. 2800   CIRCLE (XL1,YL1),3,3,,,1,F
  173. 2810   WAIT 100
  174. 2820   IF TH=90  OR TH=270 THEN XZ1=0
  175. 2830   IF TH=60  OR TH=300 THEN XZ1=.5!
  176. 2840   IF TH=240 OR TH=120 THEN XZ1=-.5!
  177. 2850   IF TH=180           THEN XZ1=-1
  178. 2860   IF TH=45  OR TH=315 THEN XZ1=.707107!
  179. 2870   IF TH=135 OR TH=225 THEN XZ1=-.707107!
  180. 2880   IF TH=360           THEN XZ1=1
  181. 2890   LOCATE 27,19:COLOR 7:PRINT"Ｘ座標値＝";XZ1;
  182. 2900 '
  183. 2910 IF MO=1 THEN GOTO 3010
  184. 2920   LOCATE 7,23:PRINT SPACE$(70);:WAIT 50
  185. 2930   LOCATE 7,23:COLOR 6:PRINT "桃色点が, COS グラフ上の";TH;"°に当たる点です｡  X=";XZ1;"です。  "; 
  186. 2940   WAIT 400:LOCATE 7,23:PRINT SPACE$(70);:WAIT 50
  187. 2950   LOCATE 7,23:PRINT "つまり, SIN";TH;"゜＝";YZ1;"  COS";TH;" ゜＝";XZ1;"です。  ": 
  188. 2960   WAIT 400
  189. 2970 '
  190. 2980   LOCATE 7,23:PRINT SPACE$(70);:WAIT 50
  191. 2990   LOCATE 7,23:PRINT "もう一度見てみます｡ まず, 円とグラフに赤線で角度を取ります｡"; 
  192. 3000   WAIT 400
  193. 3010 REM ****KAKUDO EGAKU 2****
  194. 3020   CIRCLE (139,219),25,0,1,(360-TH)/360,1,N
  195. 3030   FOR T=1 TO TH-1
  196. 3040      IF T=1 OR T=2 THEN THH=T+2 ELSE THH=T
  197. 3050      CIRCLE (139,219),25,2,1,(361-THH)/360,1,N
  198. 3060      LINE (290,219)-(290+T*269/360,219),PSET,2
  199. 3070      LOCATE 27,18:COLOR 7:PRINT"角    度＝";T;"°";
  200. 3080      WAIT 6
  201. 3090   NEXT
  202. 3100   CIRCLE (XL3,YL3),2,2,,,1,F
  203. 3110   LOCATE 27,18:COLOR 7:PRINT"角    度＝";TH;"°";
  204. 3120 '
  205. 3130 REM ****KAKUDO POINT EGAKU 2****
  206. 3140   CIRCLE (XL1,219),2,2,,,1,F
  207. 3150   IF MO=1 THEN GOTO 3210
  208. 3160   LOCATE 7,23:PRINT SPACE$(70);:WAIT 50
  209. 3170   LOCATE 7,23:COLOR 6:PRINT "円とグラフの赤点が,";TH;"°の点です｡";
  210. 3180  WAIT 200
  211. 3190   LOCATE 7,23:PRINT SPACE$(70);:WAIT 50
  212. 3200   LOCATE 7,23:COLOR 6:PRINT "赤点と白点の点滅で示します｡ よく見て下さい｡";
  213. 3210  WAIT 100
  214. 3220   C1=7:C2=7:C3=7
  215. 3230   FOR J=0 TO 7
  216. 3240     SYMBOL (XLS+5,315),TH$,.75!,.75!,C1,0,PSET,0,2
  217. 3250     CIRCLE (XL1,219),2,C1,,,1,F
  218. 3260     CIRCLE (XL3,YL3),2,C1,,,1,F
  219. 3270     LINE (XLS+5,333)-(XLS+5+HB,333),PSET,C2
  220. 3280     LOCATE 27,18:COLOR C1:PRINT"角    度＝";TH;"°";
  221. 3290     IF C1=7 THEN C1=2 ELSE C1=7
  222. 3300     IF C2=7 THEN C2=0 ELSE C2=7
  223. 3310     WAIT 50 
  224. 3320   NEXT
  225. 3330   LOCATE 27,18:COLOR 2:PRINT"角    度＝";TH;"°";
  226. 3340 WAIT 150
  227. 3350 '
  228. 3360 REM ****Y-ZAHYOU****
  229. 3370   IF MO=1 THEN GOTO 3410
  230. 3380   LOCATE 7,23:PRINT SPACE$(70);:WAIT 50
  231. 3390   LOCATE 7,23:COLOR 6:PRINT "次に, Y 座標を調べます｡ Y 軸に垂線をおろし, 座標点を取ります｡";
  232. 3400   WAIT 300
  233. 3410   IF X2<139 THEN GOTO 3470
  234. 3420   FOR P=0 TO X2-139 STEP 1
  235. 3430     LINE(X2-P,Y2)-(X2,Y2),PSET,5,,&H6666
  236. 3440     WAIT 5
  237. 3450   NEXT
  238. 3460   GOTO 3510
  239. 3470   FOR P=0 TO 139-X2 STEP 1
  240. 3480     LINE(P+X2,Y2)-(X2,Y2),PSET,5,,&H6666
  241. 3490     WAIT 5
  242. 3500   NEXT
  243. 3510   LINE(139,Y2)-(X2,Y2),PSET,0,,&H6666
  244. 3520   CIRCLE (X2, Y2),3,6,,,1,F
  245. 3530   CIRCLE (139,Y2),2,5,,,1,F
  246. 3540   IF MO=1 THEN GOTO 3620
  247. 3550   LOCATE 7,23:PRINT SPACE$(70);:WAIT 50
  248. 3560   LOCATE 7,23:PRINT "Y 軸上の空色点が,Y 座標値です｡";
  249. 3570 WAIT 300
  250. 3580   LOCATE 7,23:PRINT SPACE$(70);:WAIT 50
  251. 3590   LOCATE 7,23:PRINT "Y 軸上とグラフ上の原点(０点）から線を延ばします｡ 見比べてください｡";
  252. 3600 WAIT 300
  253. 3610 '
  254. 3620   IF Y2Y=<0 THEN GOTO 3720
  255. 3630   FOR J=0 TO Y2Y
  256. 3640     LINE (139,219)-(139,219-J),PSET,5
  257. 3650     LINE (XL1,219)-(XL1,219-J),PSET,5
  258. 3660     YZ2=J/70
  259. 3670     LOCATE 27,20:COLOR 7:PRINT"Ｙ座標値＝";YZ2;"     ";
  260. 3680     WAIT 7
  261. 3690   NEXT
  262. 3700   GOTO 3800
  263. 3710 '
  264. 3720   FOR J=0 TO -Y2Y
  265. 3730     LINE (139,219)-(139,219+J),PSET,5
  266. 3740     LINE (XL1,219)-(XL1,219+J),PSET,5
  267. 3750     YZ2=-(J/70)
  268. 3760     LOCATE 27,20:COLOR 7:PRINT"Ｙ座標値＝";YZ2;"     ";
  269. 3770     WAIT 7
  270. 3780   NEXT
  271. 3790 '
  272. 3800   YZ2=FNF(TH)
  273. 3810   IF TH=90            THEN YZ2=1
  274. 3820   IF TH=30  OR TH=150 THEN YZ2=.5!
  275. 3830   IF TH=210 OR TH=330 THEN YZ2=-.5!
  276. 3840   IF TH=45  OR TH=135 THEN YZ2=.707107!
  277. 3850   IF TH=225 OR TH=315 THEN YZ2=-.707107!
  278. 3860   IF TH=270           THEN YZ2=-1
  279. 3870   IF TH=180 OR TH=360 THEN YZ2=0
  280. 3880   LOCATE 27,20:COLOR 7:PRINT"Ｙ座標値＝                    ";
  281. 3890   LOCATE 27,20:COLOR 7:PRINT"Ｙ座標値＝";YZ2;
  282. 3900   CIRCLE (139,Y2),2,5,,,1,F
  283. 3910 '
  284. 3920   IF MO=1 THEN GOTO 4000
  285. 3930   LOCATE 7,23:PRINT SPACE$(70);:WAIT 50
  286. 3940   LOCATE 7,23:COLOR 6:PRINT "Y 軸上の空色線と, SIN グラフ上の空色線とは同じ長さですね｡";
  287. 3950 WAIT 300
  288. 3960   LOCATE 7,23:PRINT SPACE$(70);:WAIT 50
  289. 3970   LOCATE 7,23:PRINT "赤・白点の点滅で示しますので確認して下さい｡";
  290. 3980 WAIT 100
  291. 3990 '
  292. 4000   C1=7
  293. 4010   FOR J=0 TO 7
  294. 4020     CIRCLE (XL1,YL2),3,C1,,,1,F
  295. 4030     CIRCLE (139, Y2),2,C1,,,1,F
  296. 4040     LOCATE 27,20:COLOR C1:PRINT"Ｙ座標値＝";YZ2;
  297. 4050     IF C1=7 THEN C1=2 ELSE C1=7
  298. 4060     WAIT 50
  299. 4070   NEXT
  300. 4080  LOCATE 27,20:COLOR 2:PRINT"Ｙ座標値＝";YZ2;
  301. 4090  CIRCLE (XL1,YL2),3,5,,,1,F
  302. 4100  CIRCLE (139, Y2),2,5,,,1,F
  303. 4110  WAIT 100'
  304. 4120 '
  305. 4130 REM **** X-ZAHYOU****
  306. 4140   IF MO=1 THEN GOTO 4180
  307. 4150   LOCATE 7,23:PRINT SPACE$(70);:WAIT 50
  308. 4160   LOCATE 7,23:COLOR 6:PRINT "次に, X 座標を調べます｡ X 軸に垂線をおろし, 座標点を取ります｡";
  309. 4170   WAIT 300
  310. 4180   IF Y2>219 THEN GOTO 4240
  311. 4190   FOR P=0 TO 219-Y2
  312. 4200     LINE(X2,Y2+P)-(X2,Y2),PSET,3,,&H6666
  313. 4210     WAIT 7
  314. 4220   NEXT
  315. 4230   GOTO 4280
  316. 4240   FOR P=0 TO Y2-219
  317. 4250     LINE(X2,Y2)-(X2,Y2-P),PSET,3,,&H6666
  318. 4260     WAIT 7
  319. 4270   NEXT
  320. 4280   LINE(X2,219)-(X2,Y2),PSET,0,,&H6666
  321. 4290   CIRCLE (X2,Y2),3,6,,,1,F
  322. 4300   CIRCLE (X2,219),2,3,,,1,F
  323. 4310 '
  324. 4320   IF MO=1 THEN GOTO 4400
  325. 4330   LOCATE 7,23:PRINT SPACE$(70);:WAIT 50
  326. 4340   LOCATE 7,23:PRINT "X 軸上の桃色点が,X 座標値です｡";
  327. 4350 WAIT 300
  328. 4360   LOCATE 7,23:PRINT SPACE$(70);:WAIT 50
  329. 4370   LOCATE 7,23:PRINT "X 軸上とグラフ上の原点(０点）から線を延ばします｡ 見比べてください｡";
  330. 4380 WAIT 300
  331. 4390 '
  332. 4400   IF X2X<=0 THEN GOTO 4500
  333. 4410   FOR J=0 TO X2X
  334. 4420     LINE (139,219)-(139+J,219),PSET,3
  335. 4430     LINE (XL1,219)-(XL1,219-J),PSET,3
  336. 4440     XZ2=J/70
  337. 4450     LOCATE 27,19:COLOR 7:PRINT"Ｘ座標値＝";XZ2;"     ";
  338. 4460     WAIT 7
  339. 4470   NEXT
  340. 4480   GOTO 4580'
  341. 4490 '
  342. 4500   FOR J=0 TO -X2X
  343. 4510     LINE (139,219)-(139-J,219),PSET,3
  344. 4520     LINE (XL1,219)-(XL1,219+J),PSET,3
  345. 4530     XZ2=-(J/70)
  346. 4540     LOCATE 27,19:COLOR 7:PRINT"Ｘ座標値＝";XZ2;"     ";
  347. 4550     WAIT 7
  348. 4560   NEXT
  349. 4570 '
  350. 4580   XZ2=FNC(TH)
  351. 4590   IF TH=90  OR TH=270 THEN XZ2=0
  352. 4600   IF TH=60  OR TH=300 THEN XZ2=.5!
  353. 4610   IF TH=240 OR TH=120 THEN XZ2=-.5!
  354. 4620   IF TH=180           THEN XZ2=-1
  355. 4630   IF TH=45  OR TH=315 THEN XZ2=.707107!
  356. 4640   IF TH=135 OR TH=225 THEN XZ2=-.707107!
  357. 4650   IF TH=360           THEN XZ2=1
  358. 4660   LOCATE 27,19:COLOR 2:PRINT"Ｘ座標値＝                    ";
  359. 4670   LOCATE 27,19:COLOR 2:PRINT"Ｘ座標値＝";XZ2;
  360. 4680   CIRCLE (X2,219),2,3,,,1,F
  361. 4690 '
  362. 4700   IF MO=1 THEN GOTO 4780
  363. 4710   LOCATE 7,23:PRINT SPACE$(70);:WAIT 50
  364. 4720   LOCATE 7,23:COLOR 6:PRINT "X 軸上の桃色線と, COS グラフ上の桃色線とは同じ長さですね｡";
  365. 4730 WAIT 300
  366. 4740   LOCATE 7,23:PRINT SPACE$(70);:WAIT 50
  367. 4750   LOCATE 7,23:PRINT "赤・白点の点滅で示しますので確認して下さい｡";
  368. 4760 WAIT 100
  369. 4770 '
  370. 4780   WAIT 50:C1=7
  371. 4790   FOR J=0 TO 7
  372. 4800     CIRCLE (XL1,YL1),3,C1,,,1,F
  373. 4810     CIRCLE (X2, 219),2,C1,,,1,F
  374. 4820     LOCATE 27,19:COLOR C1:PRINT"Ｘ座標値＝";XZ2;
  375. 4830     IF C1=7 THEN C1=2 ELSE C1=7
  376. 4840     WAIT 50
  377. 4850   NEXT
  378. 4860  'LOCATE 27,19:COLOR 7:PRINT"Ｘ座標値＝";XZ2;
  379. 4870  CIRCLE (XL1,YL1),3,3,,,1,F
  380. 4880  CIRCLE (X2, 219),2,3,,,1,F
  381. 4890  CIRCLE (139,219),2,5,,,1,F
  382. 4900  WAIT 100
  383. 4910   LOCATE 7,23:PRINT SPACE$(70);:WAIT 50
  384. 4920   LOCATE 7,23:COLOR 6:PRINT "SIN";TH;"゜＝";YZ1;"  COS";TH;" ゜＝";XZ1;"です。  ";
  385. 4930 '
  386. 4940 WAIT 400:COLOR 6:CLS 4
  387. 4944 '
  388. 4945 '
  389. 4946 LOAD@"GAMEN4.TIF",(26,108)'
  390. 4950 LOCATE 7, 23:COLOR 6:PRINT "上のボタンから一つ選んで下さい｡";
  391. 4956 GOTO *BUNKI
  392. 4960 '
  393. 4990 '
  394. 5013 '
  395. 5020 *MOUS
  396. 5030 MOUSE 0:MOUSE 1,100,100,1
  397. 5040 X=MOUSE(4,0):Y=MOUSE(5,0)
  398. 5050 LOCATE 30,23:PRINT X;Y;
  399. 5060 GOTO 5040
  400. 5070 '
  401. 5075 *BUNKI
  402. 5120  LOCATE 61,21:COLOR 7:PRINT "                ";:COLOR 6
  403. 5130  SYMBOL(203,400), "ハイスピードモード   解説付きモード   HELP   メニューへ   終わる",.75!,.75!,5
  404. 5140  LINE (198,397)-(315,414),PSET,5,B:LINE (325,397)-(416,414),PSET,5,B
  405. 5150  LINE (426,397)-(458,414),PSET,5,B:LINE (468,397)-(536,414),PSET,5,B
  406. 5160  LINE (546,397)-(590,414),PSET,5,B
  407. 5170  '
  408. 5180  LOCATE 7, 23:COLOR 6:PRINT "上のボタンから一つ選んで下さい｡";
  409. 5190  '
  410. 5200  MOUSE 5:MOUSE 0:MOUSE 1,408,377,1
  411. 5210   X=MOUSE(4,0):Y=MOUSE(5,0)
  412. 5220   IF Y>397 AND Y<414 THEN GOTO *M_L1 ELSE GOTO 5290
  413. 5230  *M_L1
  414. 5240   IF X>198 AND X<315 THEN MO=1:GOTO *MAIN
  415. 5250   IF X>325 AND X<416 THEN MO=0:GOTO *MAIN
  416. 5260   IF X>426 AND X<458 THEN      GOTO *MAIN_COS
  417. 5270   IF X>468 AND X<536 THEN      GOTO *MENU_HE
  418. 5280   IF X>546 AND X<590 THEN      SYSTEM
  419. 5290   GOTO 5210
  420. 5295 '
  421. 10000 *MAIN_COS
  422. 10005  MOUSE 5
  423. 10010 LINE(142,396)-(591,415),PSET,0,BF
  424. 10015 '
  425. 10020 LINE(140,80)-(510,360),PSET,1,BF,7
  426. 10030 LINE(145,85)-(505,355),PSET,1,B
  427. 10040 SYMBOL(155,90), "                    COS の意味と値    ",.75!,.75!,1
  428. 10050 SYMBOL(155,110),"■直角三角形ＯＰＭの",.75!,.75!,1
  429. 10060 SYMBOL(155,130),"  斜辺をＯＰ，直角を挟む２辺をＯＭ，ＰＭとすると，",.75!,.75!,1
  430. 10070 LOAD@"OM_OP.TIF",(180,155)
  431. 10080 SYMBOL(203,162),"  の値をＣＯＳθといいます｡  ⇒  ＣＯＳθ＝",.75!,.75!,1
  432. 10090 LOAD@"OM_OP.TIF",(464,155)
  433. 10100 SYMBOL(155,198),"　ＯＰ＝１とすると，ＣＯＳθの値は，　　　　です。",.75!,.75!,1
  434. 10110 LOAD@"OM_1.TIF",(375,191)
  435. 10120 LINE(178,153)-(365,180),PSET,2,B
  436. 10130 LINE(398,153)-(495,180),PSET,2,B
  437. 10140 'SAVE@"OM_1.TIF",(173,160)-(200,185)
  438. 10150 SYMBOL(155,223),"      ＯＰ＝１の場合　　　　　     　⇒  ＣＯＳθ＝ ＯＭ",.75!,.75!,1
  439. 10160 SYMBOL(238,315),"θ",.75!,.75!,1
  440. 10170 LINE(178,220)-(365,238),PSET,2,B
  441. 10180 LINE(398,220)-(495,238),PSET,2,B
  442. 10190 '
  443. 10200 LINE(197,329)-(345,329),PSET,2'*************OM
  444. 10210 LINE(197,329)-(345,273),PSET,2'*************OP
  445. 10220 LINE(345,273)-(345,329),PSET,2'*************PM
  446. 10230 '
  447. 10240 LINE(335,319)-(345,319),PSET,1
  448. 10250 LINE(335,319)-(335,329),PSET,1
  449. 10260 LINE(227,318)-(229,329),PSET,1
  450. 10270 SYMBOL(178,324),"Ｏ",.75!,.75!,1
  451. 10280 SYMBOL(352,269),"Ｐ",.75!,.75!,1
  452. 10290 SYMBOL(352,324),"Ｍ",.75!,.75!,1
  453. 10300 SYMBOL(375,283),"上の説明文中の言葉を",.75!,.75!,3
  454. 10310 SYMBOL(375,303),"クリックしてみてね！",.75!,.75!,3
  455. 10320 SYMBOL(405,330),"次頁へ  終わる",.75!,.75!,0
  456. 10330 LINE(401,326)-(443,345),PSET,0,B'*************PM
  457. 10340 LINE(449,326)-(489,345),PSET,0,B'*************PM
  458. 10350 '
  459. 10360 MOUSE 5:MOUSE 0:MOUSE 1,377,329,1
  460. 10370 X=MOUSE(4,0):Y=MOUSE(5,0)
  461. 10380 IF X>167 AND X<262 AND Y>110 AND Y<122 THEN GOTO *COS_OPM
  462. 10390 IF X>403 AND X<443 AND Y>328 AND Y<345 THEN GOTO *COS_ZIPEZI
  463. 10400 IF X>449 AND X<489 AND Y>328 AND Y<345 THEN GOTO *HELP_OWARI
  464. 10410 '
  465. 10420 IF X>182 AND X<205 AND Y>156 AND Y<176 THEN GOTO *COS_BUNSU2
  466. 10430 IF X>456 AND X<489 AND Y>156 AND Y<176 THEN GOTO *COS_BUNSU2
  467. 10440 IF X>167 AND X<211 AND Y>197 AND Y<210 THEN GOTO *COS_PO1
  468. 10450 IF X>189 AND X<294 AND Y>223 AND Y<234 THEN GOTO *COS_PO1
  469. 10460 IF X>464 AND X<490 AND Y>223 AND Y<235 THEN GOTO *COS_OM
  470. 10470 '
  471. 10480 IF Y>130 AND Y<142 THEN GOTO *COS_BY1 ELSE GOTO *COS_BY2
  472. 10490   *COS_BY1 
  473. 10500    IF X>167 AND X<190 THEN GOTO *COS_OP
  474. 10510    IF X>204 AND X<224 THEN GOTO *COS_OP
  475. 10520    IF X>237 AND X<322 THEN GOTO *COS_OM_PM
  476. 10530    IF X>335 AND X<358 THEN GOTO *COS_OM
  477. 10540    IF X>370 AND X<394 THEN GOTO *COS_PM
  478. 10550 *COS_BY2
  479. 10560    GOTO 10370
  480. 10570 '
  481. 10580 *COS_OPM
  482. 10590  FOR J=0 TO 3
  483. 10600    LINE(197,329)-(345,329),PSET,5'*************OM
  484. 10610    LINE(197,329)-(345,273),PSET,5'*************OP
  485. 10620    LINE(345,273)-(345,329),PSET,5'*************PM
  486. 10630    WAIT 50
  487. 10640    LINE(197,329)-(345,329),PSET,2'*************OM
  488. 10650    LINE(197,329)-(345,273),PSET,2'*************OP
  489. 10660    LINE(345,273)-(345,329),PSET,2'*************PM
  490. 10670    WAIT 50
  491. 10680  NEXT
  492. 10690  GOTO 10360
  493. 10700 '
  494. 10710 *COS_OP
  495. 10720  FOR J=0 TO 3
  496. 10730    LINE(197,329)-(345,273),PSET,5'*************OP
  497. 10740    WAIT 50
  498. 10750    LINE(197,329)-(345,273),PSET,2'*************OP
  499. 10760    WAIT 50
  500. 10770  NEXT
  501. 10780  GOTO 10360
  502. 10790 '
  503. 10800 *COS_OM
  504. 10810  FOR J=0 TO 3
  505. 10820    LINE(197,329)-(345,329),PSET,5'*************OM
  506. 10830    WAIT 50
  507. 10840    LINE(197,329)-(345,329),PSET,2'*************OM
  508. 10850    WAIT 50
  509. 10860  NEXT
  510. 10870  GOTO 10360
  511. 10880 '
  512. 10890 *COS_PM
  513. 10900  FOR J=0 TO 3
  514. 10910    LINE(345,273)-(345,329),PSET,5'*************PM
  515. 10920    WAIT 50
  516. 10930    LINE(345,273)-(345,329),PSET,2'*************PM
  517. 10940    WAIT 50
  518. 10950  NEXT
  519. 10960  GOTO 10360
  520. 10970 '
  521. 10980 *COS_OM_PM
  522. 10990  FOR J=0 TO 3
  523. 11000    LINE(197,329)-(345,329),PSET,5'*************OM
  524. 11010    LINE(345,273)-(345,329),PSET,4'*************PM
  525. 11020    WAIT 50
  526. 11030    LINE(197,329)-(345,329),PSET,2'*************OM
  527. 11040    LINE(345,273)-(345,329),PSET,2'*************PM
  528. 11050    WAIT 50
  529. 11060  NEXT
  530. 11070  GOTO 10360
  531. 11080 '
  532. 11090 *COS_ZIPEZI
  533. 11100  GOTO *MAIN_SIN
  534. 11110 '
  535. 11150 *COS_BUNSU2
  536. 11160  FOR J=0 TO 3
  537. 11170    LINE(197,329)-(345,273),PSET,5'*************OP
  538. 11180    LINE(197,329)-(345,329),PSET,4'*************OM
  539. 11190    WAIT 50
  540. 11200    LINE(197,329)-(345,273),PSET,2'*************OP
  541. 11210    LINE(197,329)-(345,329),PSET,2'*************OM
  542. 11220    WAIT 50
  543. 11230  NEXT
  544. 11240  GOTO 10360
  545. 11250 '
  546. 11260 *COS_PO1
  547. 11270  FOR J=0 TO 3
  548. 11280    LINE(197,329)-(345,273),PSET,5'*************OP
  549. 11290    SYMBOL(264,287),"１",.75!,.75!,1
  550. 11300    WAIT 50
  551. 11310    LINE(197,329)-(345,273),PSET,2'*************OP
  552. 11320    LINE(264,286)-(269,299),PSET,7,BF'**********OP
  553. 11330    WAIT 50
  554. 11340  NEXT
  555. 11350  GOTO 10360
  556. 11360 '
  557. 11370 *MAIN_SIN
  558. 11380 '
  559. 11390 LINE(140,80)-(510,360),PSET,1,BF,7
  560. 11400 LINE(145,85)-(505,355),PSET,1,B
  561. 11410 SYMBOL(155,90), "                    SIN の意味と値    ",.75!,.75!,1
  562. 11420 SYMBOL(155,110),"■直角三角形ＯＰＭの",.75!,.75!,1
  563. 11430 SYMBOL(155,130),"  斜辺をＯＰ，直角を挟む２辺をＯＭ，ＰＭとすると，",.75!,.75!,1
  564. 11440 LOAD@"PM_OP.TIF",(180,155)
  565. 11450 SYMBOL(203,162),"  の値をＳＩＮθといいます｡  ⇒  ＳＩＮθ＝",.75!,.75!,1
  566. 11460 LOAD@"PM_OP.TIF",(464,155)
  567. 11470 SYMBOL(155,198),"　ＯＰ＝１とすると，ＳＩＮθの値は，　　　　です。",.75!,.75!,1
  568. 11480 LOAD@"PM_1.TIF",(375,191)
  569. 11490 LINE(178,153)-(365,180),PSET,2,B
  570. 11500 LINE(398,153)-(495,180),PSET,2,B
  571. 11510 'SAVE@"OM_1.TIF",(173,160)-(200,185)
  572. 11520 SYMBOL(155,223),"      ＯＰ＝１の場合　　　　　     　⇒  ＳＩＮθ＝ ＰＭ",.75!,.75!,1
  573. 11530 SYMBOL(238,315),"θ",.75!,.75!,1
  574. 11540 LINE(178,220)-(365,238),PSET,2,B
  575. 11550 LINE(398,220)-(495,238),PSET,2,B
  576. 11560 '
  577. 11570 LINE(197,329)-(345,329),PSET,2'*************OM
  578. 11580 LINE(197,329)-(345,273),PSET,2'*************OP
  579. 11590 LINE(345,273)-(345,329),PSET,2'*************PM
  580. 11600 '
  581. 11610 LINE(335,319)-(345,319),PSET,1
  582. 11620 LINE(335,319)-(335,329),PSET,1
  583. 11630 LINE(227,318)-(229,329),PSET,1
  584. 11640 SYMBOL(178,324),"Ｏ",.75!,.75!,1
  585. 11650 SYMBOL(352,269),"Ｐ",.75!,.75!,1
  586. 11660 SYMBOL(352,324),"Ｍ",.75!,.75!,1
  587. 11670 SYMBOL(375,283),"上の説明文中の言葉を",.75!,.75!,3
  588. 11680 SYMBOL(375,303),"クリックしてみてね！",.75!,.75!,3
  589. 11690 SYMBOL(405,330),"次頁へ  終わる",.75!,.75!,0
  590. 11700 LINE(401,326)-(443,345),PSET,0,B'*************PM
  591. 11710 LINE(449,326)-(489,345),PSET,0,B'*************PM
  592. 11720 '
  593. 11730 MOUSE 5:MOUSE 0:MOUSE 1,377,329,1
  594. 11740 X=MOUSE(4,0):Y=MOUSE(5,0)
  595. 11750 IF X>167 AND X<262 AND Y>110 AND Y<122 THEN GOTO *SIN_OPM
  596. 11760 IF X>403 AND X<443 AND Y>328 AND Y<345 THEN GOTO *SIN_ZIPEZI
  597. 11770 IF X>449 AND X<489 AND Y>328 AND Y<345 THEN GOTO *HELP_OWARI
  598. 11780 '
  599. 11790 IF X>182 AND X<205 AND Y>156 AND Y<176 THEN GOTO *SIN_BUNSU
  600. 11800 IF X>456 AND X<489 AND Y>156 AND Y<176 THEN GOTO *SIN_BUNSU
  601. 11810 IF X>167 AND X<211 AND Y>197 AND Y<210 THEN GOTO *SIN_PO1
  602. 11820 IF X>189 AND X<294 AND Y>223 AND Y<234 THEN GOTO *SIN_PO1
  603. 11830 IF X>464 AND X<490 AND Y>223 AND Y<235 THEN GOTO *SIN_PM
  604. 11840 '
  605. 11850 IF Y>130 AND Y<142 THEN GOTO *SIN_BY1 ELSE GOTO *SIN_BY2
  606. 11860   *SIN_BY1 
  607. 11870    IF X>167 AND X<190 THEN GOTO *SIN_OP
  608. 11880    IF X>204 AND X<224 THEN GOTO *SIN_OP
  609. 11890    IF X>237 AND X<322 THEN GOTO *SIN_OM_PM
  610. 11900    IF X>335 AND X<358 THEN GOTO *SIN_OM
  611. 11910    IF X>370 AND X<394 THEN GOTO *SIN_PM
  612. 11920 *SIN_BY2
  613. 11930    GOTO 11740
  614. 11940 '
  615. 11950 *SIN_OPM
  616. 11960  FOR J=0 TO 3
  617. 11970    LINE(197,329)-(345,329),PSET,5'*************OM
  618. 11980    LINE(197,329)-(345,273),PSET,5'*************OP
  619. 11990    LINE(345,273)-(345,329),PSET,5'*************PM
  620. 12000    WAIT 50
  621. 12010    LINE(197,329)-(345,329),PSET,2'*************OM
  622. 12020    LINE(197,329)-(345,273),PSET,2'*************OP
  623. 12030    LINE(345,273)-(345,329),PSET,2'*************PM
  624. 12040    WAIT 50
  625. 12050  NEXT
  626. 12060  GOTO 11730
  627. 12070 '
  628. 12080 *SIN_OP
  629. 12090  FOR J=0 TO 3
  630. 12100    LINE(197,329)-(345,273),PSET,5'*************OP
  631. 12110    WAIT 50
  632. 12120    LINE(197,329)-(345,273),PSET,2'*************OP
  633. 12130    WAIT 50
  634. 12140  NEXT
  635. 12150  GOTO 11730
  636. 12160 '
  637. 12170 *SIN_OM
  638. 12180  FOR J=0 TO 3
  639. 12190    LINE(197,329)-(345,329),PSET,5'*************OM
  640. 12200    WAIT 50
  641. 12210    LINE(197,329)-(345,329),PSET,2'*************OM
  642. 12220    WAIT 50
  643. 12230  NEXT
  644. 12240  GOTO 11730
  645. 12250 '
  646. 12260 *SIN_PM
  647. 12270  FOR J=0 TO 3
  648. 12280    LINE(345,273)-(345,329),PSET,5'*************PM
  649. 12290    WAIT 50
  650. 12300    LINE(345,273)-(345,329),PSET,2'*************PM
  651. 12310    WAIT 50
  652. 12320  NEXT
  653. 12330  GOTO 11730
  654. 12340 '
  655. 12350 *SIN_OM_PM
  656. 12360  FOR J=0 TO 3
  657. 12370    LINE(197,329)-(345,329),PSET,5'*************OM
  658. 12380    LINE(345,273)-(345,329),PSET,4'*************PM
  659. 12390    WAIT 50
  660. 12400    LINE(197,329)-(345,329),PSET,2'*************OM
  661. 12410    LINE(345,273)-(345,329),PSET,2'*************PM
  662. 12420    WAIT 50
  663. 12430  NEXT
  664. 12440  GOTO 11730
  665. 12450 '
  666. 12460 *SIN_ZIPEZI
  667. 12470  GOTO *MAIN_DEMO
  668. 12480 '
  669. 12520 *SIN_BUNSU
  670. 12530  FOR J=0 TO 3
  671. 12540    LINE(197,329)-(345,273),PSET,5'*************OP
  672. 12550    LINE(345,273)-(345,329),PSET,4'*************PM
  673. 12560    WAIT 50
  674. 12570    LINE(197,329)-(345,273),PSET,2'*************OP
  675. 12580    LINE(345,273)-(345,329),PSET,2'*************PM
  676. 12590    WAIT 50
  677. 12600  NEXT
  678. 12610  GOTO 11730
  679. 12620 '
  680. 12630 *SIN_PO1
  681. 12640  FOR J=0 TO 3
  682. 12650    LINE(197,329)-(345,273),PSET,5'*************OP
  683. 12660    SYMBOL(264,287),"１",.75!,.75!,1
  684. 12670    WAIT 50
  685. 12680    LINE(197,329)-(345,273),PSET,2'*************OP
  686. 12690    LINE(264,286)-(269,299),PSET,7,BF'**********OP
  687. 12700    WAIT 50
  688. 12710  NEXT
  689. 12720  GOTO 11730
  690. 12730 '
  691. 12740 *MAIN_DEMO
  692. 12750 '
  693. 12760 LINE(140,80)-(510,360),PSET,1,BF,7
  694. 12770 LINE(145,85)-(505,355),PSET,1,B
  695. 12780 SYMBOL(155,90), "                    円 と の 関 係    ",.75!,.75!,1
  696. 12790 SYMBOL(155,110),"■斜辺ＯＰ＝１の直角三角形ＯＰＭを, 原点をＯとする座標軸",.75!,.75!,1
  697. 12800 SYMBOL(155,130),"  に移して考えてみます。",.75!,.75!,1
  698. 12810 SYMBOL(155,150),"■直角三角形ＯＰＭを, 原点をＯとする座標軸に移すと,　点Ｐ",.75!,.75!,1
  699. 12820 SYMBOL(155,170),"  は，原点Ｏを中心とした半径１の円周上にきます。",.75!,.75!,1
  700. 12830 '
  701. 12840 SYMBOL(430,222),"■三角形を",.75!,.75!,2
  702. 12850 SYMBOL(430,238),"  動かす",.75!,.75!,2
  703. 12860 SYMBOL(430,258),"■もう１度",.75!,.75!,2
  704. 12870 SYMBOL(430,274),"  動かす",.75!,.75!,2
  705. 12880 SYMBOL(155,330),"  説明文の中のことばをクリックしてみて！",.75!,.75!,2
  706. 12890 SYMBOL(405,330),"次頁へ  終わる",.75!,.75!,0
  707. 12900 LINE(401,326)-(443,345),PSET,0,B
  708. 12910 LINE(449,326)-(489,345),PSET,0,B
  709. 12920 '
  710. 12930 LINE(293,261)-(411,261),PSET,3
  711. 12940 LINE(352,202)-(352,320),PSET,3
  712. 12950 CIRCLE (352,261),50,5,1,1
  713. 12960 '
  714. 12970 LINE(207,261)-(243,261),PSET,2
  715. 12980 LINE(207,261)-(243,225),PSET,2
  716. 12990 LINE(243,261)-(243,225),PSET,2
  717. 13000 '
  718. 13010 SYMBOL(242,212),"P" ,.75!,.75!,1
  719. 13020 SYMBOL(191,257),"O" ,.75!,.75!,1
  720. 13030 SYMBOL(242,268),"M" ,.75!,.75!,1
  721. 13040 '
  722. 13050 SYMBOL(286,257),"X" ,.75!,.75!,1
  723. 13060 SYMBOL(345,265),"O" ,.75!,.75!,1
  724. 13070 SYMBOL(350,189),"Y" ,.75!,.75!,1
  725. 13080 '
  726. 13090 SYMBOL(344,200),"1" ,.75!,.75!,1
  727. 13100 SYMBOL(340,317),"-1",.75!,.75!,1
  728. 13110 SYMBOL(292,268),"-1",.75!,.75!,1
  729. 13120 SYMBOL(405,268),"1" ,.75!,.75!,1
  730. 13130 '
  731. 13140 MOUSE 5:MOUSE 0:MOUSE 1,439,305,1
  732. 13150 X=MOUSE(4,0):Y=MOUSE(5,0)
  733. 13160 IF X>430 AND X<486 AND Y>224 AND Y<246 THEN GOTO *DEM_UGOKU
  734. 13170 IF X>430 AND X<486 AND Y>261 AND Y<284 THEN GOTO *DEM_UGOKU2
  735. 13180 IF Y>110 AND Y<121                     THEN GOTO *L1 ELSE GOTO *L2
  736. 13190 *L1
  737. 13200 IF X>167 AND X<191                     THEN GOTO *DEM_OP
  738. 13210 IF X>193 AND X<235                     THEN GOTO *DEM_OP1
  739. 13220 IF X>251 AND X<347                     THEN GOTO *DEM_OPM
  740. 13230 IF X>371 AND X<489                     THEN GOTO *DEM_ZAHYO
  741. 13240 *L2 
  742. 13250 IF Y>150 AND Y<161                     THEN GOTO *L3 ELSE GOTO *L4
  743. 13260 *L3
  744. 13270 IF X>167 AND X<263                     THEN GOTO *DEM_OPM
  745. 13280 IF X>287 AND X<408                     THEN GOTO *DEM_ZAHYO
  746. 13290 *L4
  747. 13300 IF X>190 AND X<381 AND Y>170 AND Y<183 THEN GOTO *DEM_EN
  748. 13310 IF X>402 AND X<442 AND Y>327 AND Y<345 THEN GOTO *DEM_ZIPEIZI
  749. 13320 IF X>449 AND X<488 AND Y>327 AND Y<345 THEN GOTO *HELP_OWARI
  750. 13330 GOTO 13150
  751. 13340 '
  752. 13350 *DEM_UGOKU2
  753. 13360 LINE(352,261)-(388,261),PSET,7
  754. 13370 LINE(352,261)-(388,225),PSET,7
  755. 13380 LINE(388,261)-(388,225),PSET,7
  756. 13390 LINE(293,261)-(411,261),PSET,3
  757. 13400 LINE(384,208)-(394,220),PSET,7,BF
  758. 13410 LINE(380,265)-(395,285),PSET,7,BF
  759. 13420 SYMBOL(345,265),"O",.75!,.75!,1
  760. 13430 SYMBOL(242,212),"P",.75!,.75!,1
  761. 13440 SYMBOL(191,257),"O",.75!,.75!,1
  762. 13450 SYMBOL(242,268),"M",.75!,.75!,1
  763. 13460 LINE(207,261)-(243,261),PSET,1
  764. 13470 LINE(207,261)-(243,225),PSET,1
  765. 13480 LINE(243,261)-(243,225),PSET,1
  766. 13490 WAIT 100
  767. 13500 '
  768. 13510 *DEM_UGOKU
  769. 13520 MOUSE 5:IRO=2
  770. 13530 FOR XL=0 TO 145 STEP 2'
  771. 13540 LINE(207+XL,261)-(243+XL,261),PSET,2
  772. 13550 LINE(207+XL,261)-(243+XL,225),PSET,2
  773. 13560 LINE(243+XL,261)-(243+XL,225),PSET,2
  774. 13570 LINE(293,   261)-(411,   261),PSET,3
  775. 13580 LINE(352,   202)-(352,   320),PSET,3
  776. 13590 CIRCLE (352,261),50,5,1,1
  777. 13600 WAIT 3'
  778. 13610 '
  779. 13620 LINE(207+XL,261)-(243+XL,261),PSET,7
  780. 13630 LINE(207+XL,261)-(243+XL,225),PSET,7
  781. 13640 LINE(243+XL,261)-(243+XL,225),PSET,7
  782. 13650 '
  783. 13660 NEXT
  784. 13670 '
  785. 13680 LINE(293,261)-(411,261),PSET,3'X_ZIKU*****************
  786. 13690 LINE(352,202)-(352,320),PSET,3'Y_ZIKU*****************
  787. 13700 CIRCLE (352,261),50,5,1,1'     ENN   *****************
  788. 13710 SYMBOL(286,257),"X",.75!,.75!,1
  789. 13720 '
  790. 13730 LINE(352,261)-(388,261),PSET,1'3KAKKEI 2 OM **********
  791. 13740 LINE(352,261)-(388,225),PSET,1'3KAKKEI 2 OP **********
  792. 13750 LINE(388,261)-(388,225),PSET,1'3KAKKEI 2 PM **********
  793. 13760 '
  794. 13770 LINE(207,261)-(243,261),PSET,1'3KAKKEI 1 OM **********
  795. 13780 LINE(207,261)-(243,225),PSET,1'3KAKKEI 1 OP **********
  796. 13790 LINE(243,261)-(243,225),PSET,1'3KAKKEI 1 PM **********
  797. 13800 '
  798. 13810 SYMBOL(242,212),"P",.75!,.75!,2
  799. 13820 SYMBOL(191,257),"O",.75!,.75!,2
  800. 13830 SYMBOL(242,268),"M",.75!,.75!,2
  801. 13840 '
  802. 13850 SYMBOL(386,210),"P",.75!,.75!,2
  803. 13860 SYMBOL(345,265),"O",.75!,.75!,2
  804. 13870 SYMBOL(386,268),"M",.75!,.75!,2
  805. 13880 '
  806. 13890 GOTO 13140
  807. 13900 '
  808. 13910 *DEM_OP
  809. 13920  IF IRO=2 THEN C1=1 ELSE C1=2
  810. 13930  FOR J=0 TO 3
  811. 13940    LINE(207,261)-(243,225),PSET, 4'3KAKKEI 1 OP **********
  812. 13950    WAIT 50
  813. 13960    LINE(207,261)-(243,225),PSET,C1'3KAKKEI 1 OP **********
  814. 13970    WAIT 50
  815. 13980  NEXT
  816. 13990  GOTO 13140
  817. 14000 '
  818. 14010 *DEM_OPM
  819. 14020  IF IRO=2 THEN C1=1 ELSE C1=2
  820. 14030  FOR J=0 TO 3
  821. 14040    LINE(207,261)-(243,261),PSET, 4'3KAKKEI 1 OM **********
  822. 14050    LINE(207,261)-(243,225),PSET, 4'3KAKKEI 1 OP **********
  823. 14060    LINE(243,261)-(243,225),PSET, 4'3KAKKEI 1 PM **********
  824. 14070    WAIT 50
  825. 14080    LINE(207,261)-(243,261),PSET,C1'3KAKKEI 1 OM **********
  826. 14090    LINE(207,261)-(243,225),PSET,C1'3KAKKEI 1 OP **********
  827. 14100    LINE(243,261)-(243,225),PSET,C1'3KAKKEI 1 PM **********
  828. 14110    WAIT 50
  829. 14120  NEXT
  830. 14130  GOTO 13140
  831. 14140 '
  832. 14150 *DEM_ZAHYO
  833. 14160  FOR J=0 TO 3
  834. 14170    LINE(293,261)-(411,261),PSET,4'X_ZIKU*****************
  835. 14180    LINE(352,202)-(352,320),PSET,4'Y_ZIKU*****************
  836. 14190    WAIT 50
  837. 14200    LINE(293,261)-(411,261),PSET,3'X_ZIKU*****************
  838. 14210    LINE(352,202)-(352,320),PSET,3'Y_ZIKU*****************
  839. 14220    WAIT 50
  840. 14230  NEXT
  841. 14240  IF IRO=2 THEN LINE(352,261)-(388,261),PSET,1
  842. 14250  GOTO 13140
  843. 14260 '
  844. 14270 *DEM_EN
  845. 14280  FOR J=0 TO 3
  846. 14290    CIRCLE (352,261),50,2,1,1'ENN********************
  847. 14300    WAIT 50
  848. 14310    CIRCLE (352,261),50,5,1,1'ENN********************
  849. 14320    WAIT 50
  850. 14330  NEXT
  851. 14340  GOTO 13140
  852. 14350 '
  853. 14360 *DEM_OP1
  854. 14370  IF IRO=2 THEN C1=1 ELSE C1=2
  855. 14380  FOR J=0 TO 3
  856. 14390    LINE(207,261)-(243,225),PSET, 4'3KAKKEI 1 OP **********
  857. 14400    SYMBOL(216,232),"1",.75!,.75!,2
  858. 14410    WAIT 50
  859. 14420    LINE(207,261)-(243,225),PSET,C1'3KAKKEI 1 OP **********
  860. 14430    LINE(214,230)-(218,248),PSET,7,BF
  861. 14440    WAIT 50
  862. 14450  NEXT
  863. 14460  GOTO 13140
  864. 14470 '
  865. 14480 *DEM_ZIPEIZI
  866. 14490  GOTO *MAIN_COS
  867. 14500 '
  868. 14510 *HELP_OWARI
  869. 14512  MOUSE 5
  870. 14515  LOAD@"SIN.TIF",(140,80)
  871. 14520  GOTO 1165
  872. 14530 '
  873. 14540 *MENU_HE
  874. 14545  MOUSE 5:LINE(142,396)-(591,415),PSET,0,BF
  875. 14550  CHAIN "MENU2.BAS",,ALL
  876. 14555  RUN "MENU2.BAS"
  877.